Hyper Stacks 1994 May/Hyper Stacks (Pacific HiTech)(1994)[Mac].iso/Utilities/Import⁄Export Tools/Import_Export Tools/background_17972.xml

Extensible Markup Language | 1994-04-05 | 3.4 KB | 13 lines

<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
<background>
    <id>17972</id>
    <filler1>0</filler1>
    <cantDelete> <true /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <false /> </dontSearch>
    <link rel="stylesheet" type="text/css" href="stylesheet_6249.css" />
    <name>Export-Import</name>
    <script>on enterkey
-- capture enter key
end enterkey

on deleteCurrentCard
lock screen
doMenu "Delete Card"
unlock screen
end deleteCurrentCard

on MyPop cardid
repeat until the name of this card is cardid
pop card
end repeat
end MyPop

function getforeignbkgnds
put empty into fbackPop
put number of backgrounds into num
repeat with rr = 1 to num
if rr is 1 then
get short name of background rr
-- if it is empty then get the long name of background rr
put it&"[checkmark]" after fbackpop
else
get short name of background rr
put it&"[]" after fbackpop
end if
end repeat
return fbackpop
end getforeignbkgnds

-- function getbackflds fbackgnd,ignores
-- set cursor to busy
-- if fbackgnd contains "bkgnd id" then
-- do "go to first card of "& fbackgnd
-- else
-- do "go to first card of bkgnd "&quote&fbackgnd&quote
-- end if
-- put number of background fields into numbgfields
-- put number of items in ignores into numigs
-- put empty into bgfldname
-- repeat with rr = 1 to numbgfields
-- put short name of bg fld rr into tempfld
-- repeat with ss = 1 to numigs
-- put item ss of ignores into tempignore
-- if tempfld contains tempignore then
-- exit repeat
-- else
-- if ss = numigs then
-- put short name of bg fld rr & "," after bgfldname
-- end if
-- end if
-- end repeat
-- end repeat
-- sort items of bgfldname
-- put number of items of bgfldname into temp
-- put replace(",","[]",bgfldname) into bgfldname
-- put temp&"None[checkmark]" before bgfldname
-- return bgfldname
-- end getbackflds


function getbackflds fbackgnd,ignores
set cursor to busy
if fbackgnd contains "bkgnd id" then
do "go to first card of "& fbackgnd
else
do "go to first card of bkgnd "&quote&fbackgnd&quote
end if
put number of background fields into numbgfields
put number of items in ignores into numigs
put empty into bgfldname
repeat with rr = 1 to numbgfields
put short name of bg fld rr into tempfld
if numigs = 0 then    -- ***
put short name of bg fld rr & "," after bgfldname    -- ***
else    -- ***
repeat with ss = 1 to numigs
put item ss of ignores into tempignore
if tempfld contains tempignore then
exit repeat
else
if ss = numigs then
put short name of bg fld rr & "," after bgfldname
end if
end if
end repeat
end if    -- ***
end repeat
sort items of bgfldname
put number of items of bgfldname into temp
put replace(",","[]",bgfldname) into bgfldname
put temp&"None[checkmark]" before bgfldname
return bgfldname
end getbackflds

on ChooseAllFields Listname,fieldid
put replace("None[checkmark]","",listname) into temp
put replace("[]",",",temp) into temp
repeat with rr = 1 to (number of items of temp)
do "put item rr of temp into line rr of "&fieldid
end repeat
end chooseAllFields

function readfile textfile, endchar
put empty into temp
repeat until (chartonum(last char of temp) = chartonum(endchar))
read from file textfile until endchar
if (it is empty) and (temp is empty) then exit repeat
if it ≠ return then put it after temp
end repeat
return temp
end readfile
</script>
</background>